home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-demo 6 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  534b  |  19 lines
  1. 1 REM TURTLE-DEMO: 'TUNNEL'
  2. 2 REM N. HEUSLER 11.91
  3. 3 :
  4. 10 SYS49152
  5. 20 !GRAPHICS:!INIT
  6. 30 UX=140:UY=110:UA=  0:GOSUB200
  7. 40 UX=180:UY=100:UA=180:GOSUB200
  8. 50 !FINISH
  9. 60 :
  10. 200 FG=12:!PEN0:!MOVEUX,UY:!ANGLEUA:!PEN1
  11. 210 !WALKFG:!TURNL10:FG=FG-.029:IFFG>1THEN210
  12. 220 S=COS(UA/180*(null)):!PEN0:!MOVEUX-58*S,UY+27*S:AN=323+UA:!PEN1
  13. 230 FORI=1TO26:!ANGLEAN:!WALK4:AN=AN+3.3:NEXT
  14. 240 !PEN0:!MOVEUX-61*S,UY+30*S:AN=35+UA:!PEN1
  15. 250 FORI=1TO26:!ANGLEAN:!WALK3:AN=AN+2.1:NEXT
  16. 260 !PEN0:!MOVEUX-50*S,UY+35*S:AN=273+UA:!PEN1
  17. 270 FORI=1TO21:!ANGLEAN:!WALK3:AN=AN+3.2:NEXT
  18. 280 RETURN
  19.